home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
midi
/
mled111.lha
/
mled_v1.11
/
MlEd_HDInstall
< prev
next >
Wrap
Text File
|
1995-07-31
|
7KB
|
233 lines
;-------------------------------------------------
; HD Installation script for Musicline Editor 1.10
; Copyright © 1995 by Musicline.
; Written by Conny Cyreus.
;-------------------------------------------------
;$VER: Musicline Editor HDInstall 1.10 ()
; Check kickversion.
;-------------------
(if (< (/ (getversion) 65536) 37)
(abort "Musicline Editor will only run under Kickstart 2.04 or above!")
)
(if (= (getassign "SYS") "MusiclineEditor:")
(abort "If you wan't to install Musicline Editor on your HD. You must boot from your HD!")
)
; Select drawer.
;---------------
(welcome)
(complete 0)
(set @default-dest (getassign "MlEd" "dva"))
(if (= @default-dest "")
((set @default-dest (getassign "Work" "dva"))
(if (= @default-dest "") (set @default-dest (getassign "SYS" "dva")))
(set @default-dest (askdir (prompt "Please select a drive or drawer where\nMusicline Editor should be installed!\nA drawer will be created there.")
(help "In this location a drawer will be created. All files except the libraries and the font will be installed inside this drawer.")
(default @default-dest)))
(set @default-dest (tackon @default-dest "MusiclineEditor"))
)
((set bool (askbool (prompt "Installing Musicline Editor in\n" @default-dest) (default 1) (help @askbool-help)))
(if (= bool 0)
((set @default-dest (getassign "SYS" "dva"))
(set @default-dest (askdir (prompt "Please select a drive or drawer where\nMusicline Editor should be installed!\nA drawer will be created there.")
(help "In this location a drawer will be created. All files except the libraries and the font will be installed inside this drawer.")
(default @default-dest)))
(set @default-dest (tackon @default-dest "MusiclineEditor"))
)
)
(working "Comparing versions of Musicline Editors.")
(set MlEdNew (getversion ("MusiclineEditor/MlEd")))
(set MlEdOld (getversion (tackon @default-dest "MlEd")))
(if (> (BITAND MlEdOld) (BITAND MlEdNew))
((set MlEdOldVer (/ MlEdOld 65536))
(set MlEdOldRev (- MlEdOld (* MlEdOldVer 65536)))
(set MlEdNewVer (/ MlEdNew 65536))
(set MlEdNewRev (- MlEdNew (* MlEdNewVer 65536)))
(abort "You are trying to install an old version of Musicline Editor!\n"
("Installed version : %ld.%02ld\nVersion to install : %ld.%02ld" MlEdOldVer MlEdOldRev MlEdNewVer MlEdNewRev))
)
)
)
)
(complete 3)
; Delete some old files if exists.
;-----------------------------------------
(if (exists (tackon @default-dest "ReadMe.Txt" (noreq)))
((delete (tackon @default-dest "ReadMe.Txt")
(optional force))
(delete (tackon @default-dest "ReadMe.Txt.info")
(optional force)))
)
(if (exists (tackon @default-dest "History.Txt" (noreq)))
((delete (tackon @default-dest "History.Txt")
(optional force))
(delete (tackon @default-dest "History.Txt.info")
(optional force)))
)
(if (exists (tackon @default-dest "MlEd.Doc" (noreq)))
((delete (tackon @default-dest "MlEd.Doc")
(optional force))
(delete (tackon @default-dest "MlEd.Doc.info")
(optional force)))
)
(complete 5)
; Copy Musicline Editor files to main dir.
;-----------------------------------------
(working "Checking for MlEd files.")
(copyfiles (prompt "Install Musicline Editor.")
(source "MusiclineEditor")
(dest @default-dest)
(pattern "#?")
(files)
(infos)
(optional fail)
(confirm)
(help @copyfiles-help)
)
(set Destination (substr @default-dest 0 (- (strlen @default-dest) 15)))
(set Musicline (substr @default-dest (- (strlen @default-dest) 15) 15))
(if (= Musicline "MusiclineEditor")
(copyfiles (source "Icon") (dest Destination) (pattern "MusiclineEditor.info") (files) (optional nofail))
)
(complete 37)
; Copy Instruments.
;------------------
(working "Checking for instruments.")
(makedir (tackon @default-dest "Instruments"))
(copyfiles (prompt "Install Instruments.")
(source "MusiclineEditor/Instruments")
(dest (tackon @default-dest "Instruments"))
(all)
(optional fail force)
(confirm)
(help @copyfiles-help)
)
(complete 38)
; Copy samples.
;--------------
(if (= (exists (tackon @default-dest "Wavesamples") (noreq)) 2)
(rename (tackon @default-dest "Wavesamples") (tackon @default-dest "Samples"))
)
(working "Checking for Samples.")
(makedir (tackon @default-dest "Samples"))
(copyfiles (prompt "Installing Samples.")
(source "MusiclineEditor/Samples")
(dest (tackon @default-dest "Samples"))
(all)
(optional fail force)
(confirm)
(help @copyfiles-help)
)
(complete 40)
; Copy Waves.
;------------
(if (= (exists (tackon @default-dest "Waveforms") (noreq)) 2)
(rename (tackon @default-dest "Waveforms") (tackon @default-dest "Waves"))
)
(working "Checking for waves.")
(makedir (tackon @default-dest "Waves"))
(copyfiles (prompt "Installing Waves.")
(source "MusiclineEditor/Waves")
(dest (tackon @default-dest "Waves"))
(all)
(optional fail force)
(confirm)
(help @copyfiles-help)
)
(complete 42)
; Copy modules.
;------------------
(working "Checking for modules.")
(makedir (tackon @default-dest "Modules"))
(copyfiles (prompt "Installing Modules.")
(source "MusiclineEditor/Modules")
(dest (tackon @default-dest "Modules"))
(all)
(optional fail force)
(confirm)
(help @copyfiles-help)
)
(complete 90)
; Copy Libraries to libs:
;------------------------
(if (< (/ (getversion) 65536) 39)
(set srclib "Libs/2.x")
(set srclib "Libs/3.x")
)
(working "Comparing versions of diskfont.libraries.")
(copylib (prompt "Musicline Editor needs diskfont.library!")
(source (tackon srclib "diskfont.library"))
(dest "Libs:")
(optional fail force)
(confirm)
(help @copylib-help)
)
(complete 93)
(working "Comparing versions of asl.libraries.")
(copylib (prompt "Musicline Editor needs asl.library!")
(source (tackon srclib "asl.library"))
(dest "Libs:")
(optional fail force)
(confirm)
(help @copylib-help)
)
(complete 98)
; Copy font to font:
;------------------------
(copyfiles (prompt "Install Musicline fonts")
(source "Fonts")
(dest "Fonts:")
(all)
(optional fail force)
(confirm)
(help @copyfiles-help)
)
(complete 99)
; Make assign in user-startup
;----------------------------
(startup "MusiclineEditor" (prompt "Making assign for Musicline Editor in user-startup.")
(command "Assign MlEd: " (expandpath (@default-dest)))
(help @startup-help)
)
(makeassign "MlEd" @default-dest)
(complete 100)
(exit "")